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$Sbegin rmsusr,Vv04-000 
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rms user structure definitions 


Modified By: 


v03-029 


v03-028 


v03-027 


v03-026 


v03-025 


v03-024 


v03-023 


v03-022 


v03-021 


v03-020 


v03-019 


v03-018 


RASO325 ort pgrhecter 11-Jul-1984 
Make NAMSC_MAXRSS[LCLJ equal 255; as big as it can get. 


JEJ0030 J E Johns 19-Apr-1984 
Move SRCHXABS bit $o that. any qareting te tere fo the previously 
deleted NOP bits will not collide wit 


JEJ0016 JE Johns 27-Mar-1984 
Delete unused NAM$B NOP bits and add NAM$V_SRCHXABS bit for 
network search operations. Also add constant to NAMSB_RFS field. 


DGB0027 Donald G. Blair 15-Ma res 

Add new fields lor ACL! S$: XABSL ACLBUF, XABSW_ACLSIZ, 
XABSW_ACLLEN, XABSL_ACLCTX, XABSL -ACL_ STAT Tus, ~XABSB- PROT OPT, 
and XAB$V_ PROPAGATE. 


DGB0003 nald G. Blair reewaer 
Add new fields A USABPRO iy super’ access mode 

protested f files: XAB$B T_MODE and PABSV. FILE_MODE. 
dd NAM$V_SLPARSE. 


DASO004 David Solomon 13-Feb-1984 
Remove EDL FOP option (erase on delete). Clean up 
ordering of FILL_x fields. 


KBT0576 Keith B. Thompson 5-Aug-1983 
Add new flags hey FSCN and one new item code 
RASO174 Ron Schaefer 


28-Jul-1983 
Security correction: Belete FABS$B_DSBMSK Pe FABSV_UFM; 
add FABSB_ACMODES, FABSV_LNM_MODE and FABSV_CHAN_MODE. 


pasoges David Solomon 27-Jul-1983 
Max journal name ea changed from 12 to 16. Change XABJNL 
JOP bit RUA to ONLY 


RASO145 Ron Schaefer 14-A rates 
Add descriptor code for SYSSFILESCAN (SFSCNDEF). 

Add NOCONCEAL NOP option; add SEARCH_LIST NB option to NAM; 
add NEVER_RU XABJNL option; add EDL FOP option 

Fold XABATE into an extended XABPRO and add additional 
XABPRO fields. 


RAS0144 n Schaefer Mere 

Add code royce _PPFECHOS to support aia 5 TSSINPUT 
to SYSSOUTP 

LJA0067 Laurie J. Anderson 01-Ma 


-1983 
Add new field into XABCXR - CXRBFZ - the Length of CXRBUF 
Marked CXFRTE as no longer needed. 


RMS! 


end 
end 
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V03-017 JWHO190 Jeffrey W. Horn 21-Feb-1983 
Add $XABACE, the Access Cortrol Entry XAB. 

v03-016 DASO002 David Solomon 15-Feb-1983 
Forgot to up edit level in v03-015. 

v03-015 DASO002 David Solomon 15-Feb-1983 
Add new ROP bit ETO - extonaed terminal operation. 

V03-014 KBT0494 Keith 8. Thompson 11-Feb-1983 
Add SYNCHK bit to name block NOP field 

v03-013 DASO002 David Solomon 09-Feb-1983 
Redo XABTRM structure for new terminal I/0 support. 

v03-012 TMKO003 Todd M. Katz 03-Feb-1983 
Eliminate TMKO002. 

v03-011 KPLO003 Peter Lieberwirth 30-Dec-1982 


Add FAB bits to indicate recovery is taking alate. These 
bits are only to be set by ‘ne recovery routine that is 
image e merged into the RCP. No FAB macros support this 
field; the bits must be set at run time by hand. 


v03-010 TMKO002 Todd M 22-Dec-1982 
Re-define the ROP bit RABSY. FDL to also be RABSV. FGET. 


v03-009 LJA0045 Laurie J. Anderson 17-Dec-1982 
Add Form Feeds to make it easier to read my find things 
Add quad word data ty ype 
Add NRP for sequent te and relative files 
Add a couple fields in XABCXR which are needed. 


v03-008 JwHO139 rey . Horn 29-Nov-1982 
Add XAB$B_BIL, xASS5. AIL, XABSB_ATL to contain the 
return Lengths for journal names. 
Change XAB3B_JOP XAbSW_JOP. 
Add free space to end of journal XAB. 


v03-007 KPLO0002 Peter Lieberwirth 15-Nov-1982 
Add XABSC_MAXJNLNAM and XABSK_MAXJNLNAM to og Fie the 
longest Léngth of a journal name. 


v03-006 LJA0033 Laurie J. Anderso 11-Nov-1982 
Change around the NRP for ISAM slightly. — add couple 
fields to XABCXF which are needed. 


vO3-005 MCNO008 Maria del C. Nasr 46-0 -1982 
KEY_NCMPR flag in the key XAB can be def ned. les all keys. 
v03-004 LJA Laurie J. Anderson 14-0ct-1982 


0028 rologue coreten to be associated with m the co context XAB's 
Add RMS ontert Extraction NRP support for ISAM 
Took out a couple fields in the XABCXF not needed 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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V03-003 JwHO002 rey W. Horn 1 lth 
Add $RAB ROP Lv2" 5 t, to implement Level 
locking consistancy. 

v03-002 JWHO001 Jeffrey W. Horn 02-Jul-1982 
Add XABJNL, journaling XAB. 

v03-001 LJA0009 Laurie Anderson 09-Jur=1982 
Kad RABSL_XAB, to support new context XAB CXABCAR) 
Add two new XABs (of t context), one for FAB, other 
for RAB, XABCXF and X XR. respectively. 

v02-040 RAS0073 Ron Schaefer r-1982 


2-4 
Add FABSB_DSBMSK, to support $TRNLOG translation table 
disable mask support. 


v02-039 CDS0003 cs S-Jan-1982 
cos XABSW_GBC and eastor VERL IMIT to FHC XAB. 
Make NAMST_MAXRSS and NAMSC“MA MAXRSSLCL both 252. 


v02-038 DMW0003 David Michael Walp 21-Jan-82 
Remove NAM$B/L_QUOTED, 17 ANSI ‘‘a'' character filenames 


v02-037 KBT0001 Keith B p Thenpeen 8-Jan-1982 
Remove XAB$B _COMPAT. cha AB$B_STRUCT to XABSB PROLOG 
in the key xab and add XABSB_MTACT to the protection xab 


v02-036 TMKO0001 Todd M 88-Jan-1982 
Define NAMSV_IFI and NAMSY. vSRCHNME in the field NAMSL_WCC. 


v02-035 CDS0002 C Sae 23-Dec-1981 
Add FABSW_GBC field _ “global buffer count. 

v02-034 LJA0002 Laurie Anderson 20-Dec-1981 
Re-inserted NAMSC_BLN_DIRWC as equivalant to NAMSC BLN 

v02-033 CDS0001 C Saether 4-Nov-1981 
Change key xab ' Structure" field to “struct 

v02-032 RASO0040 n Schaefer 26-0ct-1981 
Add NAM$V_CNCL bev “bit for concealed devices and 
NAM$V_ROOT_DIR a oere for rooted directories to the 
NAMSL_FNB Tietd 

v02-031 PSK0004 Paulina S$ Knibbe 19-0ct-1981 


Change the XABS$B_CMP_BITS to COMPAT and Sonnee the 
constants that field Can take. 


v02-030 PSk0003 Paulina $ Knibbe 14-Sep-1981 
Make the new key XAB variables shorter so we can 
keep three column format in map 


v02-029 PSK0002 Paulina S$ Knibbe 02-Sep-1981 
Make the KEY XAB long word aligned again. 


v02-028 PSK0001 Paulina S Knibbe 25-Aug-1981 


RAAAAAAAAAAAAAAAAAAAAAAAAA ABA AAARAAAAAAAAAAAATAAAAAAAAAAN 
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v02-024 


v02-023 


v02-022 


v02-021 


v02-020 


v02-019 


v02-018 
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Merge in Maria's changes to the KEY XAB. 


RASO028 Sen Schaefer 20-Aug-1981 

Change FABSC_STM11 to FABSC_STM. 

JAK0062 ycka 14-Aug-1981 

Add NOP and RFS fields. to the NAM block. 

RASO014 Ron Schaefer 7-Jul-1981 

Add stream format codes to FAB and stream access code to RAB. 
RASOO12 12-Jun-1981 


Correct the BLISS Be rinition of the XAB Stettetion codes 
to be relative to the start of the 4-bit protection field. 


JAKO05S9 ycka 11-Jun-1981 
Multiplex the avdteo vai iet tones in the NAM block with the 
NAME descriptor instead of the DEV descriptor. 


MCNO007 aria del C. Nas 12-May-1981 
Use new symbol tor old Length of "peckup date tnd time XAB. 
EONOTe arl Malik 17-Apr-1981 


enere the NAM bue “definitions and extend the NAM block 
bY 40 bytes to previge easy access to various filespec 
ements of either the expanded name string or the 
resultant name string. 


mLJ0010 Martin 25-Mar-1981 
Add alternate format file 1b° fn NAM block. 
kpl0001 Peter Lieberwirth 31-Dec-1980 


Include definitions for new ROP bits RRL and REA. 
Clean up some spelling and format while here. 


MCNO004 Maria del C. Nasr 17-Nov-1980 
Include definition for backup date and time XAB. 
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¢ file access block (fab) definitions 
m 
/ 
/ 


odule S$FABDEF; 


++++¢eaeee 


7 
* the fields thru ctx must not be modified due to 
* commonality between fab/rab/xab 


aggregate FABDEF structure prefix FABS$; 
BID byte unsigned; 
constant BID equals 3 prefix FAB tag SC; 
BLN byte unsigned; 
IFI_LOVERLAY union; 
IFI word unsigned; 
IFI_BITS structure; 
FILL_1 bitfield Length 6 fill prefix FABDEF 
F_RAT bitfield mask Length 8; 
PPF_IND bitfield mask; 


end IFI_ BITS; 
end IFI_ OVERLAY; 
FOP_OVERLAY union; 
FOP Longword unsigned; 
FOP_BITS structure; 
FILL_2 bitfield Fiut prefix FABDEF tag $$; 


MXV Bitfield mask; 
SUP bitfield mask; 
TMP bitfield mask; 
TMD bitfield mask; 
DFW bitfield mask; 
$Q0 bitfield mask; 
RWO bitfield mask; 
POS bitfield mask; 
WCK bitfield mask; 
NEF bitfield mask; 
RWC bitfield mask; 
DMO bitfield mask; 
SPL bitfield mask; 
SCF bitfield mask; 
DLT bitfield mask; 
NFS bitfield mask; 
UFO bitfield mask; 
PPF bitfield mask; 
INP bitfield mask; 
C1TG bitfield mask; 
CBT bitfield mask; 
FILL_3 bitfield fill prefix FABDEF tag $$; 
RCK Bitfield mask; 
NAM bitfield mask; 
CIF bitfield mask; 
FILL_4 bitfield fill prefix FABDEF tag $$; 
ESC Bitfield mask; 
TEF bitfield mask; 
OFP bitfield mask; 


/* 


/* (i.e., restricted operations) 


block id 
code for fab 
block len 
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internal file index 


tag $$;/* move to bit 6 
/* rat value for process-permanent files 
indirect access to process-permanent file 


file options 


reserved for asy (not implemented) 


maximize version number 
supersede existin 
create temporary 


file® 


create temp file marked for delete 


deferred write (rel and idx) 
sequential access only 

rewind mt on op 
use next magtap 


write chec 


en 
e position 


k ng 
inhibit end of file positioning 


rewind mt on close 


dismount mt on close (not implemented) 
spool file on close 


submit command file on close 
delete sub-opti 
non-file structured operation 


user file open - no rms operations 


process permanent file (pio se 
process-permanent file is ‘input 


contiguous extension 


contiguous best tr 
reserved (not imp 


read checking 
use nese block 
create if 


dvi 
neaweris 
reserved (was UFM bitfield) 


Lemented? 


gment) 


. did, and/or fid fields for open 


tent 


‘escape’ to non-standard function ($modify) 


truncate at eof on close (write-accessed seq. disk file only) 


output file parse (only name type sticky) 


RMS 


end 
end 
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cat pP 6 T Py 
end FOP OVERLAY: 
STS Longword unsigned; 
STV longword unsigned: 
ALQ saneere une Lene 
DEQ word unsigned 
FAC -pyE RLAY union: 
FAC byte unsigned; 
FAC Bi +s structure; 


cococooccoo 


tf 
tt 
tf 
tf 
tf 
tf 
tf 
tf 


ate de ato ae de mado edo at 


i 
i 
i 
i 
i 
i 
i 
i 
BI 


end F TS; 
end FAC OVERCAY: 


RPUT bitfield mask; 
SHRGET bitfield mask; 
SHRDEL bitfield mask; 
SHRUPD bitfield mask; 
MSE bitfield mask; 
NIL bitfield mask; 
UPI bitfield mask 


end S BITS; 
end SHR OVERLAYS 
CTX longword uns igned; 


“RTy byte 


RTV byte: 

ORG_O ERLAY union; 
“ORG byte tana toned; | 
ORG -8 MH steycty 


& bitfield length 4 fill prefix FABDEF 


ORG +B itfield Length 4; 
end ORG_BITS; 
constant SEQ. equals 0 prefix FAB ta 
constant REL equals 18 prefix FAB t 
constens IDX equals 32 prefix FAB t 
tant ro equals 48 prefix FAB t 
ong q Oke *OVERL 


d mask; 
d mask; 


2e-e 
--a 


k: 
fill prefix FABDEF tag $$; 
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/* known file open (image activator only release 1) 


/* reserved (not implemented) 


/* 


status 
status value 
allocation quant 


tity 
default Slisestion” quantity 


file access 


put access 

et access 

elete access 
update access 
truncate access 
block i/o access 


block and record i/o access 


execute access (caller must be exec or kernel mode, 


ufo must also be set) 


file sharing 


put access 
et access 
elete access 
update access 


multi-stream connects enabled 


no sharin 


user provided interlocking (allows multiple 


writers to seq. files) 


user context 
retrieval window size 
file organization 


tag $$; 


* sequential 


relative 
indexed 


* hashed 


record format 
fortran carriage-ctl 


lf-record-cr carriage ctl 
print-file carriage ctl 


records don't cross block boundaries 
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end RAT_BITS; 
end RAT_OVERLAY; 
RFA byte uns gned: 
constant RFM_DFLT equals § 
constant UDF equals 
constant FIX equals 1 
constant VAR equals § pr 
constant VFC equals 
constant STM equals 4 
constant STMLF equals 5 
constant STMCR equals 6 
constant MAXRFM equals 6 
JNL Longword unsigned; 


Petts tts 


XAB Longword unsigned; 

NAM Longword unsigned; 

FNA Longword unsigned; 

DNA Longword unsigned; 

FNS byte unsigned; 

DNS byte unsigned; 

MRS word unsigned; 

MRN longword unsigned; 

BLS word unsigned; 

BKS byte unsigned; 

FSZ byte unsigned; 

DEV lLongword unsigned; 

SDC Longword unsigned; 

GBC wor uns \qnee; 

ACMODES OVERLAY union; 
ACMODES byte unsigned; 
ACMODES BITS structure; 

LNM“MODE bitfield length 2 

CHAN_MODE bitfield Length 2; 

FILE pope rsers len . 


RCF byte unsigned; 
RCF_B 


RU mask; 


ie 
ield mask; 
ield mask; 


end FABDEF; 
end_module $f ABDEF ; 


/t 


/* 
/* 


/* 
tag $$ 


/t 
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record format 
var len is default 
undefined (also stream binary) 
renee Length records 
variable length records 
variable fixed control 
RMS-11 stream (valid only for sequential org) 
LF stream (valid only for sequential org) 
CR stream (valid only for sequential org) 
maximum cfm supported 
lcb address 
xab address 
nam block address 
ile name string address 
default file name string addr 
file name string size 
default name string size 
maximum record size 
maximum record number 
blocksize for tape 
bucket size 
fixed header size 
device characteristics | 
spopt ine device characteristics 
Global buffer count 


agent access modes 


ACMODE for log nams 
ACMODE for channel 
ACMODE to use for determining file accessibility 


recovery control flags 


recovery unit recovery 
after image recovery 
before image recovery 


(spare) 
Length of fab 
length of fab 


enc 


enc 


! | 
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gate SRABDEF ; 

® 

/* record access block (rab) definitions 
/* there is one rab per connected stream 


/* it is used for all communications between the user 
/* and rms concerning operations on the stream 
| 


/eeeeeeaneee 


/* the fields thru ctx cannot be changed due to commonality 
with the fab 
® 


aggregate RABDEF structure prefix RABS$; 


D byte unsigned; /* block id 
constant BID equals 1 prefix RAB tag $C; /* code for rab 
BLN pyte unsigned; /* block Length 
ISI_LOVERLAY union; 
ISI] word unsigned; /* internal stream index 


/* (ifi in fab) 
ISI_BITS structure; 
FILL_1 bitfield Length 6 fill prefix RABDEF tag $$;/* move to bit 6 
PPF_RAT bitfield mask Length 8 
PPF_IND bitfie 


end ISI BITS; 
end ISI_OVERLAY; 
ROP_OVERLAY union; 


; /* rat value for process-permanent files 
ld mask; /* indirect access to process-permanent file 
/* (i.e., restricted operations) 


ROP bonexere unsigned; /* record options 
ROP_BITSO structure; 
ASY bitfield mask; /* asynchronous operations ; 
TPT bitfield mask; /* truncate put - allow sequential put not at 
- eof, thus truncating file (seq. org only) 
® 
/* these next two should be in the byte for bits 
je input to $find or $get, but there is no room there 
® 
REA bitfield mask; /* lock record for read only, allow other readers 
RRL bitfield mask; i read record regardless of loc 
UIF bitfield mask; /* update if existent 
MAS bitfield mask; /* mass~insert mode 
FDL bitfield mask; /* fast record deletion 
HSH bitfield mask; use hash code in bkt 
EOF bitfield mask; /* connect to eof 
RAH bitfield mask; /* read ahea 
WBH bitfield mask; /* write behind 
BIO bitfield mask; /* connect for bio only 
LV2 bitfield mask; /* level 2 RU Lock consistancy 
LOA bitfield mask; /* use bucket fill percentage 
LIM bitfield mask; /* compare for key Limit reached on $get/$find seq. (idx only) 
FILL_2 bitfield fill prefix RABDEF tag $$; is (1 spare) 


the following bits are input to 
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LOC bitfi 
WAT bitfi 
ULK bitfi 
RLK bitfi 
NLK bitfi 
KGE bitfi 
KGT bitfi 
NXR bitfi 
RNE bitfi 
TMO bitfi 
CVT bitfi 
RNF bitfi 
ETO bitfi 
PTA bitfi 
PMT bitfi 
CCO bitfi 
end ROP_BITSO 


eovooonno00 
aul sual aul aul seul sel see a 
eaaqdaadaa 


eeoooanoo 
(oul gel ae seul seed ee el ee 
aaaaaaaa 


ROP_ FIELDS structure 
FIL byte fill * orefix RABDEF tag $$; 


ROP1” byte unsigned; 
ROP2 byte unsigned; 


ROP3 byte unsigned; 
end ROP_FIELDS; 


end ROP_OVERLAY; 


STS OVERLAY unt unsigned; 


V lon 


— "une toned: 


stv VfTELDS structure; 


“STV 


end STV-F 
end STV_OVERLA 


RF A_OVERLAY OR 
“RFA word uns igned dimension 3; 


word unsigned; 
sive. word unsigned; 


RFA atte ee structure; 


RFAG word. 


end RFA FIE 
end we _OVERLA 


FILL_4 word uve aa RABDEF tag $$; 


ord ee grees 
uns i gned; 
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$find or S$get, (see above also REA and RRL) 
(separate byte) 


use locate mode 
wait if record not available 
manual unlocking 
allow readers for this locked record 
do a. sees record 
ee 
greater than 
non-existent record 


the ees Laure pits are terminal qualifiers only 
e 


(separate by 


read no echo 

use time-out period 

convert to upper case 

read no filter 

extended terminal operation 
purge type ahead 

use prompt buffer 

cancel control o on output 


fhe fo} Levine bits may be 
input to various rab-related 
operations 


various options 

et/find options (use of this field discoura 
ue to REA and RRL being in a dif Bas. byte 
terminal read options 


status 


status value 


low word of stv 
high word of stv 


record's file address 


(reserved - rms release 1 optimizes stores 
this reserved word 


to the rfa field ‘9 be a move quad, overwriting 


RAS\ 


end, 
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piiL.s word fill prefix RABDEF tag $$; 


RAC byte unsigned; 
4 SEQ ® 


constant KEY equals 1 
constant RFA equals 


constant STM equals : 


TMO byte unsigned; 
USZ word unsigned; 
RSZ word unsigned; 
UBF longword unsigned; 
RBF longword unsigned; 
RHB oy pty unsigned; 
KBF_OVERLAY union; 
KBF longword unsigned; 
PBF henawere unsigned; 
end KBF OVERLAY; 
KSZ_OVERLAY union; 
KSZ byte unsigned; 
PSZ ayte unsigned; 
end KSZ_OVERLAY; 
KRF byte unsigned; 
MBF byte; 
MBC arse unsigned; 
BKT_OVERLAY union; 
BKT longword unsigned; 
DCT senawers unsigned; 
end 8KT_OVERLAY; 
FAB Longword unsigned; 
XAB Longword unsigned; 


prefix RAB tag $C; 

prefix RAB tag $C; 

prefix RAB tag $C; 
9g 


$C 
$C 
$c 
prefix RAB tag $C 


constant BLN equals . prefix RAB$ tag K; 
constant BLN equals . prefix RAB$ tag C; 


end RABDEF ; 
end_module SRABDEF ; 


/* 


user context 


(spare) 

record access 

sequential access 

keyed access 

rfa access 

stream access (valid only fer sequential org) 
time-out period 

user buffer size 

record buffer size 

user buffer address 
record buffer address 
record header buffer addr 


key buffer address 
prompt buffer addr 


key buffer size 
prompt buffer size 


key of reference 
multi-buffer count 
multi-block count 


bucket hash code, vbn, or rrn 
duplicates count on key accessed on alternate key 


related fab for connect 
XAB address 

Length of rab 

Length of rab 
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module SNAMDEF ; 


name block field definitions 


if nam block is used to communicate optional 


t 
filename-related information 


aggregate NAMDEF structure prefix NAM$; 


D byte unsigned; /* block id 

constant BID equals 2 prefix NAM tag $C; /* code for nam block 

BLN byte unsigned; /* block Length 
LREEEES HESS ehh es eseseeees 
aS the following 3 fields must not be rearranged relative to each other 

RSS byte unsigned; /* resultant string area size 

RSL byte unsigned; /* resultant string Length 
Pa RSA Longword unsigned; /* resultant string area address 


LEEHEEESESEEEFESE SESE HEEE 


/* 


constent MAXRSS equals $22 prefix NAM tag $C; /* 
constant MAXRSSLCL equals 255 prefix NAM tag $C; /* 


NOP_OVERLAY union; 
NO 


maximum resultant name string size (network) 
maximum resultant name string size (local) 


P byte unsigned; /* Name options 
NOP_BITS structure; 
PWD bitfield mask; /* Return password if present in nodespec string and any 
/* other task-specific data of the form /netacp_data"' 
/* (default is to mask out password from expanded and 
/* resultant name strings and to create a logical name 
/* whose equivalence string is the unaltered nodespec) 
FILL_1 bitfield mask; /* unused. (used to be undocumented ROD) 
FILL 2 bitfield mask; /* unused. (used to be undocumented SOD) 
SYNCRK bitfield mask; /* Only do syntax check on Sparse operation 
NOCONCEAL bitfield mask; /* Do not conceal device/root directory 
SLPARSE bitfield mask; /* Parse search List (not documented) -- used by BACKUP. 
SRCHXABS bitfield mask; /* Fill in attached XABS on $SEARCH operations over the 
/* network (not documented) -- used by directory. 
end NOP_BITS; 
end NOP_OVERLAY; 
RFS byte unsigned; /* Remote file system type (currently not documented) 
/* Note: This field is reserved for use by Digital 
constant UFS equals 0 prefix NAM tag $C; /* Unknown file system for remote file access or 
/* not applicable for local file access or 
/* not applicable for task-to-task operation 
constant RMS11 equals 1 prefix NAM tag $C; /* RMS-11 
constant RMS20 equals § prefix NAM tag $C; /* as 
constant RMS32 equals prefix NAM tag $C; /* RAS- 
constant FCS11 equals 4 prefix NAM tag $C; /* FCS=1 
constant RT11FS equals ; prefix NAM tag $C; /* RT-11 file system 
constant TOPS20FS equals prefix NAM tag $C; /* bt file system | 
8 prefix NAM $ * TOPS-10 file system 


constant Mg equals 


tag $C; / 
constant RMS32S equals 10 prefix NAM tag $t; /* 


the following 3 fields must not be rearranged relative 


RMS-32 subset (e.g., VAXELAN) 
to each other 
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/* 
ESS byte unsigned; /* espanded string area size 
ESL byte unsigned; /* expanded string Length 
pe ESA Longword unsigned; /* expanded string area address 
RLF longword unsigned; /* related file nam block addr 
DVI character Length 16; /* device 
constant DVI equals 16 prefix NAM tag $C; /* Length of dvi field 
/eteeeeearere 


EXP_TYPE bitfield mask; /* type was explicit 


D word unsigned dimension 3; /* file id 
FID_FIELDS structure; 
FID_NUM word unsigned; /* file number 
FID_SEQ word unsigned; /* sequence number 
FID_RVN_OVERLAY union; 
FID_RVN word unsigned; /* relative volume number 
FID_RVN_FIELDS structure; 
FID_RVN byte unsigned; /* alternate format RVN ; 
FID_NMX byte unsigned; /* alternate format file number extension 
end FID_RVN_FIELDS; 
end FID _RVN_OVERLAY; 
end FID_FIECDS; 
end FID OVERLAY; 
DID_OVERLAY union; : 
DID word unsigned dimension 3; /* directory id 
DID_FIELDS structure; 
DID_NUM word unsigned; /* file number 
DID_SEQ word unsigned; /* sequence number 
DID_RVN_OVERLAY union; 
DID_RVN word unsigned; /* relative volume number 
DID_RVN_FIELDS structure; 
DID_RVN byte unsigned; /* alternate format RVN 
DID_NMX pyte unsigned; /* alternate format file number extension 
end DID_RVN_FIELDS; 
end DID _RVN_OVERLAY; 
end DID_FIECDS; 
end DID_OVEALAY; 
WCC_OVERLAY union; : 
WCC longword unsigned; /* wild card context 
WCC_BITS structure; : 
FILL_1 bitfield Length 16 fill prefix NAMDEF bay $$;/* the first word is reserved for IFI/ACP context 
IF] Bitfield mask; /* the first word contains an IFI 
FILL_2 bitfield Length 13 fill prefix NAMDEF tag $$;/* grow from top down, start at top bit 
SRCHRMF bitfield mask; /* no-more-Tiles has been encountered on a search 
SVCTX bitfield mask; /* save context across search calls 
weC BITS; 
end WCC_OVERLAY; 
F RLAY union; 
ongeers unsigned; /* file name status bits 
constant BLN_V2 equals . prefix NAM$ tag K; /* Version ; name block Length 
constant BLN_V2 equals . prefix NAM$ tag C; /* Version 2 name block length 
FNB_BITSO structure; ; Se 
EXP_VER bitfield mask; /* version was explicit 
| 


/* (prior to 40 byte extension) 


E byte unsigned; /* Nodespec length 
DEV byte unsigned; /* Device songt 
DIR byte unsigned; /* Directory length 
NAME byte unsigned; /* Filename length 
TYPE byte unsigned; /* Filetype length 
VER byte uns iened; /* Version number Length 
FILL_6 byte dimension 2 fill prefix NAMDEF tag $$; /* Currently unused 
NODE Longword unsigned; /* Nodespec address 
DEV longword unsigned; /* Device address 
DIR lLongword unsigned; /* Directory address 


NAME longword unsigned; /* Filename address 


' 
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EXP_NAME bitfield mask; /* name was explicit 
WILB_VER bistield mask; /* version contained a wild card 
WILD-TYPE bitfield mask; /* type contained a wild card 
WILD NAME bitfield mask; /* name contained a ¥it¢ card 
EXP_BIR bitfield mask; /* directory was expt ic t 
EXP_DEV bitfield mask; /* device was exp tg t 
WILBCARD bitfield mask; /* filename string included a wild card 
/* (inclusive or of other wild card bits) 
FILL_3 bitfield Length 2 fill prefix NAMDEF tag $$;/* (spares) 
SEARTH_LIST bitfield mask; /* search List present 
CNCL_DEV bitfield mask; /* concealed device present 
ROOT DIR bitfield mask; /* root directory present 
LOWVER bitfield mask; /* lower numbered version(s) of file exist(s) 
HIGHVER bitfield mask; . higher " 
PPF bitfield mask; /* process-permanent file referenced indirectly 
NODE bitfield mask; /* filename specification included a nodename 
QUOTED bitfield mask; /* filename spec included a quoted string 
GRP_MBR bitfield mask; /* directory spec was of group-member format 
WILB_DIR bitfield mask; /* cirectory spec included a wild card 
DIR_CVLS bitfield mask Length 3; /* number of directory levels (O=ufd only) 
end FNB_BITSO; 
FNB_BITS1 structure; 
FILL_4 bitfield Length 24 fill prefix NAMDEF tag $$;/* separate byte for wild card directory flags 
WILD_UFD bitfield mask; /* ufd included a wild card 
WILD-SFD1 bitfield mask; /* sfd1 included a wild card 
Te tht | bitfield mask; /* aid included a wild card 
WILD_SFDS bitfield mask; /* sfd3 included a wild card 
WILD_SFD4 bitfield mask; /* sfd4 included a wild card 
WILD_SFDOS bitfield mask; /* sfd5 included a wild card 
BILD ots bitfield mask; /* sfd6 included a wild card 
WILD _SFD7 bitfield mask; /* sfd? included a wild card 
end FNB gitst; 
FNB_BITS2 structure; : . 
FILL_S5 bitfield Length 24 fill prefix NAMDEF tag $$;/* alternate definitions for wild_ufd and wild_sfd1 
WILD_GRP bitfield mask; /* group contained a wild card 
WILD _MBR bitfield mask; /* member contained a wild card 
end FNB_BITS2; 
[tooeee tteee 
| 
| 
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TYPE Longword unsigned; 
VER —rynere uns 
FILL one 
constant BCN_DIRWC equals . pre tag K; 
constant BLN_DIRWC equals . prefix NAM$ tag C; 
constant BLNequals . prefix NAM$ tag K; 
constant BLN equals . prefix NAM$ tag C; 

end NAMDEF ; 


end_module SNAMDEF ; 


/* Filetype address 
* Version number address 


ned; / 
word dfnension 2 bb) | prefix NAMDEF tag $$;/* Currently unused 
ix NAM$ K; 


/* Not documented optional Length 
/* Not documented epttenet Length 
/* Name block Lengt 

/* Name block Length 


RMS! 
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nodule SXABDEF ; 
/* definitions for all xabs 
Sxabdef 


/* the first four fields are shared in common between all xabs 
/* and hence are defined only once 
- (the only exception is that the spare word may be used by some xabs) 


/ 
aggregate MABDEF structure prefix XAB$; 
byte uns toned: /* xab id code 
BLN byte uns ienee /* block Length 
FILL_1 word fill prefix XABDEF tag $$; /* (spare) 
NXT Tongword unsigned; /* xa 


chain Link 
/*WITH POSSIBLE EXCEPTION OF SPARE FIELD 

RVN word uns iene d; 
FILL_2 word f if H satis MABDEF tag $$; 
ROT OVERLAY unio 

ROT coduerda” 

RDT_ bathe structure; 

Longword unsigned; 
RDTS lLongword; 


end RDT FIELDS; 
end RDT OVERLAY; 
end XABDEF; 


/*COMMON AMONG DAT AND RDT XABS 


byte dimension tlipret ix XABDEF tag $$; 
tag $ /*THESE FIELDS WILL BE DEFINED LATER 


BK2 “A. unsigned; /*COMMON TO FHC AND ALQ XABS 
end XABDEF1; 
constant CXT_VER1 equals 1 prefix XAB tag $C; /* RMS Context Extraction version 1 
end_module S$XABDEF ; 
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module SXABFHCDEF ; 
++ 


/* file header characteristics xab definitions 
* Sxabfhcdef 


/eteeeeeeeeee 


/* the fields of this xab cannot be rearranged since 
~ they correspond to an cn-disk structure 


constant FHC equals 29 prefix XAB tag $C; 


eggreperte, Kt MABFHCDEF structure prefix XABS$; 
byte fill prefix XABFHCDEF tag $$; 
FILL -§ byte fill prefix XABFHCDEF tag $3: 
Fiil-3 word fill prefix XABFHCDEF 


FILL_4 Longword fill prefix NABFHCBER ta tag $$; 


RFO byte unsigned; 
ATR byte unsigned; 
LRL word unsigned; 
HBK ven St union: 
K longword unsigned: 


HBK_FIELDS structure; 
HBKO word unsigned; 
HBK2 word unsigned; 
end HBK FIELDS; 
end HBK_OVERLAY; 
EBK_OVERLAY union 
“EBK Longword Wane toned: 


EBK_FIELDS structure; 
“EBKO word unsigned; 
EBK2 word unsigned; 
end Bk FIELDS; 
end EBK OveRt, AY; 
FFB word uns igned 
FILL_5 byte fill prefix XABFHCDEF tag $$; 


HSZ byte unsigned; 
MRZ word unsigned; 
DxQ@ word uns tgned; 
GBC word unsi gree 
FILL_6 byte d mension 8 fill prefix XABFHCDEF tag $$. 
VERLTMIT word unsigned; 
[teocoottttt 
SBN Longuerd unsigned; 
constant FHCLEN equals . prefix XAB$ tag K; 
constant FHCLEN equals . prefix XAB$ tag C; 
end XABFHCDEF ; 


end_module S$XABFHCDEF ; 
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/* xabfhe id code 


/*HAS SAMS COD, BLN, SPARE AND NXT FIELD 
/*THESE 4 FIELOS ARE COMMON TO ALL XABS AND 
/*HAVE BEEN DEFINED BY $XABDEF 

/* record format and file org 

/* record attributes 

/* longest record's Length 


/* hi vbn allocated 
/* (n.b. reversed on disk!) 


/* eof vbn 
/* (n. - reversed on disk) 


/* first free byte in eof block 
/* bucket size for fhc ( note: field name is bkz, 
/* defined above in $xabdef, since it is shared 
/* by the all xab) 
/* header size 19 vfc 
/* max record s 
a default extend. quent ity 
* global byt ter co 
/* spares gad to eee word) 
/* version Limit for file. 


/* starting lbn if contiguous 
/* Length of xabfhc 
/* Length of xabfhe 


RMS 


end 
end 
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gedute SXABALLDEF ; 


/* allocation xab definitions 
/* $xaballdef 


/eeeeeeurere 

/* the fields cary bkz sanaes be rearranged due to 

/* their commonali ty with fab 

constant ALL equals 20 prefix XAB tag $C; /* xaball id code 


aggrevate xt XABALLDEF esrwn rere refix XABS$; 
byte fill prefix ALLDEF tag $$; 
FILL— eyte tt pretix XABALLDEF tag $8; 


FILL-3 word fill oretis XABALLDEF t sag eS 
FILL_4 Longword fill prefix XABALLDE tag $$; /*HAS SAME COD, BLN, SPARE AND NXT FIELD 
/*THESE 4 FIELDS ARE COMMON TO ALL XABS AND 
/*HAVE BEEN SEF INED BY SXABDEF 
AOP ete yd union; 
Bits unsigned; /* allocation options 
AOP -8 TS structure; 
D bitfield mask; /* fail if requested alignment impossible 
ONC bitfield m /* socees he pbb _feeee within a cylinder 
FILL_5 bitfield: “tength 3 fill prefix XABALLDEF t g $$;/ ‘epere 
CBT bitfield m + contiguous a ERS best try 
FILL.6 bitfield fill prefix XABALLDEF tag $$;/* sp 
CTG Bittield mask; js cant queue allocation 
end AOP_BITS; 
end AOP sOVERLAY: 
ALN byte yas igned: /* alignment type 
constant ‘ equals 0 prefix XAB tag $C; /ta ny allocation o.k. 
constant cre. equals 1 prefix XAB tag $C; /*¢ cy inder souneery 
constant LBN equals § prefix XAB tag $C; /* allocate at specified Lbn 
constant VBN equals prefix XAB tag $C; /* allocate near specified vbn 
constant RFI equals 4 prefix XAB tag $C; /* allocate near related file 
VOL word unsigned; /* relative Lorene 9 no. Rhy allocation 
/* (not arto cable i = vbn or rfi) 
LOC lLongword unsigned; /* allocation Riseice™ 
ALQ Lon were une \ened /* allocation quantity 
DEQ wor signed /* default allocation quantity 
FILL_7 byte fill prefix XABALLDEF tag $$; /* bucket size for area (note: field name is bkz 
/* defined above in $xabdef, since it is shared by the fhe 
/* xab and has the same offset, of course) 
[toeoeoottrtt 
AID byte unsigned; /* area id number 
RFI -F ERLAY union; 
RFI yore uns igned dimension 3; /* related file id 
RFI_ art DS structure; 
word unsigned; /* file number 
Rr word unsigned; /* seq number 
RFI4 word unsigned; /* rev number 
end RFI 443 LDS; 


end RFI_OVERLA 
FILL_8 word i prefix XABALLDEF tag $$; /* (spare) 
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constant ALLLEN equals . prefix 
constant ALLLEN equals . prefix 
end XABALLDEF; 


end_module $XABALLDEF ; 


XABS 
XABS 


tag 
tag 
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K; of 
C3 /* Length of 


M1 
RMSUSR.SDL;1 16-SEP-1984 16:44:38.48 Page 20 


module $SXABDATDEF ; 


/* 

/ ++ 

/* 

/* date/time xab definitions 

. Sxabdatdef 

constant DAT equals 18 prefix XAB tag $C; /* 


aggre vel te Til structure prefix X 
" FUL j fi ab 


xabdat id code 


FItt=$ word ‘oretis XABDATDEF tag $8 
FILL_4 poh fill prefix XABDATDE tag ton, /*HAS SAME COD, BLN, SPARE AND NXT FIELD 
/*THESE 4 FIELOS ARE COMMON TO ALL XABS AND 
/*HAVE BEEN DEFINED BY S$XABDEF 
ates word fill pret fix XABDATDEF tag $8: tg S455 te ! DEFINED IN $XABDEF,SINCE COMMON TO DAT & RDT 
FILL ¢ word fill ore fix XABDATDEF 7 Bp /* sp 
FILL_7 quadword fill prefix XABDATDE tag $$; /* Pevisten date & time,defined in $xabdef 
COT_OVERLAY union; 
“Gor uadword; /* creation date & time 
CDOT_FIELDS structure; 


“CDTO Longword unsigned; 
CDT4 Lon word; 


EDT_OVERLAY union; 
“EDT quadword; /* 
constant DATLEN_ V2 equals . prefix XAB$ tag K; /* 
sonst ent DATLEN_V2 equals . prefix XAB$ tag C: /* 
~EAELPS sioetbares 
lLongword unsigned; 
Br 1etBs; 


end EDT FIE 

end EDT _OVERLA 

BDT_OVERLAY le 
“BDT quadword; /* 
constant DATLEN equals . prefix XAB$ tag K; /* 


cone tent DATLEN equals . prefix XAB$ tag C; /* 
TABAELDS structure; 
ponguore unsigned; 
SDT iets: 
end BOT _ FIELDS 
end BDT_ OVERLAY; 
end XABDATDEF ; 


end_module S$XABDATDEF ; 


expiration date &t 
Version § XABDAT seat 
Version 2 XABDAT Length 


backu Sete ont time 
Length of X 
Length of XABDAT 
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pane SXABRDTDEF ; 


{eee 
/* 
/* revision date/time xab definitions 


/* xabr 3 e 
constant RDT equals prefix XAB tag $C; /* xabrdt id code 
eal tan gre etrusture prety XABS; 

ILL— 


FIL 5 ep word fill iter XABRDTDEF ta $8: 
FILL-4 longword fill prefix XABRDTDE tag $$; /*HAS we COD, BLN 


SPARE AND NXT FIELD 
/*THESE 4 FIELDS 


ARE COMMON TO ALL XABS AND 


/*HAVE BEEN BEF INED BY SXABDEF 
FILL_5 word fill prefix XABRDTDEF tag $$; /*REVISION !,DEFINED IN SXABDEF,SINCE COMMON TO DAT & RDT 
FILL_6 word fill ‘eretis XABRDTDEF tag $$; /* spare 
FILL? quadword fill prefix XABRDTDE tag, $$; /* revision date & time,defined in $xabdef 
constant RDTLEN equals . prefix XAB$ tag K /* Length of rdt xab 
constant RDTLEN equals . prefix XABS tag C; /* Length of rdt xab 


end XABRDTDEF ; 
end_module $XABRDTDEF; 


RMS 


enc 


enc 
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module SXABPRODEF ; 


/ 
{r++ 
/* 
/* protection xab field definitions 
/* $xabprodef 
/* 
/* 
constant PRO equals 19 prefix XAB tag SC; 
aggregate XABPRODEF union prefix XAB$; 
XABPRODEF BITS structure; 
NOREAD bitfield mask; 
NOWRITE bitfield mask; 
NOEXE bitfield mask; 
NODEL bitfield mask; 
nd XABPRODEF _BITS; 


e 
end XABPRODEF ; 


agare ate XABPRODEF1 structure ye XABS; 
FILL_1 byte fill prefix XABPRODEF tag $$; 
pile byte fill prefix XABPRODEF tag $$; 

_> word fill prefix XABPRODEF tag $$; 
FILL_4 longword fill prefix XABPRODEF tag $$; 


PRO_OVERLAY union; 
PRO word unsigned; 
thin, «ly structure; 


bitfield length 4; 
OWN bitfield Length 4; 
GRP bitfield length 4; 
WLD bitfield Length 4; 
end PRO_BITS; 
end PRO_OVERLAY; 


PROT_OP 
PRO 


MTACC oyte unsigned; 
T_OPT by 
PROT _OPT_FIELDS structure; 


constant PROLEN_V 
constant PROLEN_V 
UVIC_FIELDS structure; 
MBM word unsigned; 
GRP word unsigned; 
end UIC_FIELDS; 
end UIC_OVERLAY; 


PROT_MODE OVERLAY union; 

PROT_MODE quadword; 
PROT MODE FIELDS structure; 
PROT_MODE byte unsigned; 


UIC longword Env" ea. 


equals . prefix XAB$ tag K; 
equals . prefix XAB$ tag C; 
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xabpro id code 


deny read access 

deny write access 
deny execution access 
deny delete access 


/*HAS SAME COD, BLN, SPARE AND NXT FIELD 


/* THESE 


4 FIELDS ARE COMMON TO ALL XABS AND 


/*HAVE BEEN DEFINED BY SXABDEF 


protection mask 

system 

owner 

vortd 

Magtape access control char. 
XABPRO options field 


Propagate security attributes on SENTER and SRENAME 


V35a xabpro Length 
V3a xabpro Length 


member code 
group code 


Vis code 


RWED/mode protection for file 
eventually may be a quadworc 


but currently only a byte 
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end PROT MODE FIELDS; 
end PROT_MODE_OVERLAY; 


ACLBUF rere unsigned; 
ACLSIZ word unsigned; 
ACLLEN word unsigned; 
ACLCTX lLongword unsigned; 


ACLSTS longword unsigned; 

FILL_10 longword fill prefix XABPRODEF 
FILL_11 longword fill prefix XABPRODEF 
fille Longword fill prefix XABPRODEF 
FILL_15 longword fill prefix XABPRODEF 
FILL_14 longword fill prefix XABPRODEF 
FILL_15 longword fill prefix XABPRODEF 
FILL_16 longword fill prefix XABPRODEF 
FILL_17 Longword fill prefix XABPRODEF 
FILL_18 lLongword fill prefix XABPRODEF 
FILL_19 Longword fill prefix XABPRODEF 
FILL_20 Longword fill prefix XABPRODEF 
FILL_21 longword fill prefix XABPRODEF 
constant PROLEN equals . prefix XAB$ tag K; 
constant PROLEN equals . prefix XAB$ tag C; 


end XABPRODEF 1; 
end_module SXABPRODEF ; 


PP HF OF OF HF &F FF 9 & 6 OF 
PRAPAAAAAAHAGAGH 
Be Se Be Be Oe Se Oe Be Oe Be Oe ee 
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address of user's ACL buffer 
size of user's ACL buffer 
return length of entire ACL 
ACL context field 

ACL return err status 


spare 
spare 
spare 
spare 
spare 
spare 
spare 
spare 
spare 
spare 
spare 
spare 


xabpro Lenath 
xabpro length 
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module SXABTRMDEF; 


/* terminal control xab field definitions 
/* Sxabtrmdef 


constant TRM equals 31 prefix XAB tag $C; 
agareyere, aaa ocructers refix XABS$; 
FILL : byte Hitt hate XABTRMDEF tag $8: 


T longword cand | a 

T_LEN wert welree 

iH word fill prefix XABTRMDEF tag $$; 
a 


end_module ‘cnieeenia 


/*XABTRM ID CODE 


/*HAS SAME COD, BLN, SPARE AND NXT FIELD 
/*THESE 4 FIELDS ARE COMMON TO ALL XABS AND 
/*HAVE BEEN DEFINED BY SXABDEF 

/* item List address 

/* item List length 

/* spare 

/* spare 

/* spare 

/* spare 

/* spare 

/* spare 

/* Length of xab of type terminal control 
/* Length of xab of type terminal control 


} 
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goduts SXABSUMDEF ; 


/* summary xab field definitions 
/* $xabsumdef 

jt 

constant SUM equals 22 prefix XAB tag $C; /* xabsum id code 


FILL_4 longword fill prefix XABSUMDEF tag $$; /*HAS SAME COD, BLN, SPARE AND NXT FIELD 
/*THESE 4 FIELOS ARE COMMON TO ALL XABS AND 
/sHAVE BEEN DEFINED BY $XABDEF 


NOA byte unsigned; number of defined areas for index file 


NOK byte unsigned; /* number of defined keys for index file : 
PVN word unsigned; /* prologue version number (relative and index files) 
constant SUMLEN equals . prefix XAB$ tag K; /* xabsum length 


constant SUMLEN equals . prefix XAB$ tag C; /* xabsum Length 
end XABSUMDEF ; 


end_module SXABSUMDEF ; 


Zz 
= 
in 
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goene SXABKEYDEF ; 


xabkeyde 
/* 
constant KEY equals 21 prefix XAB tag $C; /* xabkey id code 


aggregate XABKEYDEF structure prefix XABS$; 
FILL_1 byte fill prefix XABKEYDEF tag $$; 
Fill.¢ byte fill prefix XABKEYDEF tag $$; 
ILL_5 word fill prefix XABKEYDEF tag $$; 
ILL_4 longword fill prefix XABKEYDEF tag $$; /*HAS SAME COD, BLN, SPARE AND NXT FIELD 
/*THESE 4 FIELOS ARE COMMON TO ALL XABS AND 
/*HAVE BEEN DEFINED BY S$XABDEF 


the field layout of the key xab is such that it matchs as 

closely as possible the layout of a key decriptor in the 

index file prologue. this is so the contents may be moved 
between the two structures as efficiently as possible. 

® 


IAN byte unsigned; /* index level area number 

LAN byte unsigned; /* lowest index level area number 

DAN byte unsigned; /* data level area number 

LVL byte unsigned; /* level of root bucket 

IBS byte unsigned; /* size of index buckets in virtual blocks 
DBS byte unsigned; /* size of data buckets in virtual blocks 


RVB sonevere unsigned; /* root bucket start vbn 
FLG_OVERLAY union; 
FLG byte unsigned; /* key option flags 
FLG_BITSO structure; 
DUP bitfield mask; /* duplicate key values allowed 
CHG bitfield mask; /* alt key only | field may chenge on update 
L bitfield mask; /* alt key only --null key value enable 
IDX_NCMPR bitfield mask; /* indicate index records for given key are not compressed 
ILC_5 bitfield length 2 fill prefix XABKEYDEF tag $$: /s spare 
KEY_NCMPR bitfield mask; /* indicates key is not compressed in data record 
end FLG_BITSO; 
FLG_BITS1 structure; 
FILL_6 bitfield fill pretty XABKEYDEF tag $$;/* space over dup 
FILL_7 bitfield genet 2 pot) ereree XABKE YDEF tag $$;/* spare 
FILL_8 bitfield fil ergtis XABKEYDEF tag $$;/* space over idx_ncmpr 
FILL~9 bitfield Lengt 2 fill prefix XABREYDEF tag $$;/* spare 
FILL_10 bitfield fill pretis XABKEYDEF tag $$;/* space over key_ncmpr 
DAT_RCMPR bitfield mask; /* data record is not compressed 
end FLG_BITS1; 
end FLG_OVERLAY; 
DIP byte unsigned; /* key field data type 
constant ST equals 0 prefix XAB ta * 


constant BN equals prefix XAB ta 
constant ING equals prefix XAB ta 


g /* str ng 

constant IN equals 1 prefix XAB tag ‘ igned 15 bit integer (2 bytes) 
] 
9 / 


{ree 
key definition xab field definitions 
S$xabkeydef 
yte binary 
* signed 51 bit integer (4 bytes) 
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constant BN4 equals 4 prefix XAB tag $C; 
constant PA equals 5 prefix XAB tag $C; 
constant IN equals § prefix XAB tag $C; 
constant BN equals prefix XAB tag $C; 
constant MAXDTP equals 7 prefix XAB tag $C; 


TKS byte a yn 


MRL word unsigned; 
IFL word unsigned; 
DFL word unsigned; 
POS_OVERLAY union: 

OS word unsigned dimension 8; 
POS_FIELDS structure; 
“POSO d 


POS6 word ie 
end POS 4 ryt 


“SIZ byte nen; dimension 8; 
SIZ_FIELDS structure; 
byt e unsigned; 
1 the unsigned: 
§ byte unsigned: 
byte unsigned: 
4 byte unsigned; 
5 byte unsigned: 
6 Byte unsigned: 
7 ES e unsigned: 
4 LDS; 


ral tit prefix XABKEYDEF tag $$; 


a cnsinectin 


- 


/* 


4 by te binary 
fh + bed gan al (1-16 bytes) 
3 pres bit integer tG bytes) 
yte binary 
max. legal data type 
number of key segments 
nul yi character 
setet ey. field | My Ay os 
Key of reference (O=prim key, 
54 = alternate keys) 
states record length to contain key field 
index bucket fill size (bytes) 
data bucket fil size (bytes) 


key field record offset positions 


segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 


NOUS WN—O 


key field segment sizes 


segment 
segment 
segment 
segment 
segment 
segment 
segment 
segment 


NOUS WN—O 


spare 


the catetanl of the above fields are dictated by the key descriptor 


* record Layout in the index file prologue. 


KNM Longword unsigned; 
DVB Longword unsigned; 

2s equals - prefix XABS tag K; 

equals . prefix XAB$ tag C; 


constant KEYLEN_V 
constant KEYLEN_V 


Additions for prologue 3 files 


TYP “vem AY union; 
TYP byte uns igned dimension 8; 
TYP_F Tee struct ure; 
byte uns‘ ed; 


1vP1 byte ur ned; 


/t 
/t 
/t 
/* 


pointer to 32 character key name buffer 
first data bucket start vbn 

old xabkey length 

old xabkey Length 


key field segment types 


segment 
segment 


RMSUSR.SDL;1 


byte unsigned; 
byte unsigned; 
byte unsigned; 
byte unsigned; 

byte unsigned; 
end TYP f LDS; 


§ byte unsigned; 
i 
5 


PROLOG Byte unsigned; 

constant PRG equals prefix XAB tag $C; 
constant PRG equals prefix XAB tag $C; 
constant ag $C; 


PRG egyets refix xAB t 
FILL i¢ byte fill prefix XABKEYDEF tag $$; 
FILL_15 word fill prefix XABKEYDEF fag $$; 


[t-- 


{ree 
end XABKEYDEF; 


end_module S$XABKEYDEF ; 
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segment 
segment 
segment 5 
segment § 
segment 


segment 


indicate prologue version desired (primary key only) 
Prologue version three 

Prologue version two 

Prologue versoin one 

spare 

spare 

xabkey length 

xabkey length 
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eens SXABCXF DEF; 


1 
/* RMS Context XAB associated with the FAB 
/* $xabcxfdef 
/* 
/* 
aggregate XA es F structure prefix XABS$; 
| 


ovge.! LL prefix XABCXFDEF tag /* COD = xab <. cons 

eoliel equa als 32 pretix 3A thé tag $C; /* XABCXF id c 
FILL ~§ bY byte itt prefix XABCXFDEF / 

ILL} refix XABCXFDEF t 


. * BLN - block 
FILL_4 eS art prefix xFDEL tag S$ tag $$; 


/* nagere? 
/* - xab chain Link 
/* UP TILL NOW COMMON AMONG ALL XABS 


/* Following in common with the CXR block, too. 
/* Do not rearrange without changing both. 


CXFSTS Longword unsigned; /* Status of the last file operation. 
CXFSTV Longword unsigned; /* Status Value of the last file operation. 


/* Top four bits of the options longword are reserved for the XABCXR. These 
/* bits describe the version of the key buffer. 
* 


CXFCOP_OVERLAY union; 
FCoP ee aerewore unsigned; /* Context Options. 
structure; 


CXF COP 
CKFRST pistiele mask; /* Restore file state - use context blk as input. 


end 

CXFBKP Lon§word une toned: /* Bookkee ing bits 

CXFIFI word unsi gree ; /* Interna le Identifier 

CXFVER byte unsigne /* prologue version num 

FILL_5 byte fill ree his XABCXF DEF cog 3 /* spare to longword align commonality 
i FILL_6 Longword fill prefix XABCXFDE ta9 $$; /* spare << 
. Up Till now in common with XABCXR, too. iy 

' 

/* The following fields correspond to those in the FAB or IFB : 
/* They should not be rearranged as their order is assumed for ; 
/* purposes of moving large chunks of data rather than a byte ; 
a or word at a time. Note: “ASSUME is used in the actual code : 

CXFDEQ word unsigned; /* Pefeuse extent ten quantity : 

CXFFAC byte unsigned: /* File ac ' 

CXFSHR byte uns toned: /* Fite Sharing : 

CXFRTE word unsign /* swas mee? 

FILL 7 byte fill aeeahaa XABCXFDEF tag $$; /* spare in, 

CXFORG byte unsigned; /* file organization 

CXFGBC word aed ae /* global buffer count 

Shee: byte un /* retrieval window 


LL_8 byte witl vpret i XABC 
FILL- Lon word dimension 
constant CXFLEN equals . 


ength of xab type CXF 
constant CXFLEN equals . : eng 


XFDEF tag $s 
otis’ s re “ _iaBcxrveer hog © $$;/* spares 
x 
fix NABS fon Ci /* renee of xab type CXF 


4 
re 
re 


—— bbs 
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end XABCXFDEF; 
end_module SXABCXFDEF; 
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gaeute SXABCXRDEF ; 
/* RMS Context XAB associated with the RAB 
/* $xabcxrdef 
/t 
/* 
aggregate, XABCXRDEF struc ure refix XAB$; 
LL_1 byte fill prefix XRDEF tag $$ /* COD = xab id code 
constant CXR equal prefi 2 xab tag $C; /* XABCXR id code 
FILL, he fill prefix XABCXRD F tag $$; /* BLN - block Length 
‘iil_5 word fill prefix XABCXRDEF tag $$; /* (s are) 
FILL_4 Conguord fill prefix XABCXRDEF tag $$; /* NX xab chain Link 
je /* UP TILL NOW COMMON AMONG ALL XABS 
/* Following in common with the CXF block, too. 
~ Do not rearrange without changing it. 
CXRSTS Longword unsigned; /* Status of the last record operation. 
CXRSTV Longword unsigned; /* Status Value of the last record operation. 
CxXRCOP ove LAY union; 
CxRCO Peis sty unsigned; /* Context Options. 
CXRCOP anit cture; 
bitfield mask; /* Restore file/record state - use context blk as input. 
bitfield | Length, 27 fill prefix XABCXRDEF TAG $$; 
Cx * R ooferiecd Length 4; * Version of Key buffer 
od gone tent tee VER1 nen, oe j prefix XAB tag $C; 
end CKRCOP ROVERCAY: ? 
CXRBKP Longuord uns i gned; /* Peekt ven tne bits 
CXRISI word unsigned; /* Internal Record Identifier 
CXRVER byte unsigned; /* prologue version num. 
FILL_6 byte fill pret ix XABCXRDEF cog 3 /* spare to longword align commonality 
og FILL_? Longword fill prefix XABCXRDE tag $$; /* spare 
o Up Till now in common with XABCXF, too. 
/t 
/* The following elements are arranged such that Large amounts of 
/* data can be moved at a time rather than words or bytes. Do not 
iN rearrange them without this consideration in mind. 
“ The following elements are stream dependent regardless of file org. 
CXRMBF byte unsigned; /* Multibuffer count 
CXRMBC byte unsigned; /* Multiblock count 
Pe CXRBFZ word unsigned; /* sz in byte of CXRBUF 
/* The following elements are necessary for saving the NRP context for 
. Sequential and Relative files. 


CXRVBN conquere una ined; 
CXROFF word unsigned; 
FILL_8 word unsigned; 


/* NRP V 
/* NRP + in VBN 
/* mbz - longword align 


+ 


_ 
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/* The following elements are necessary for saving the NRP context for 

: ISAM files. 

® 
CXRPOSO word onsign une \gneds /* Primary Positioning RFA 
CXRPO .. word unsi 
FILL 9 fill prefix XABCXRDEF tag $$; /* Spare MBZ 
CXRC ORO” Tongword tn a sence: /* Current Positioning RFA 
CXRCUR4 word unsi 
FILL 10 word fill rit XABCXRDEF tag $$; /* § Spare maz 
CXRSTDO ord unsion uns lgned; /* SIDR positioning RFA 
Tree ver 
FILL 11 Fill a XABCXRDEF tag $$; /* Spare MBZ 
CXRCAT Paea" unsigned; /* SIOR array count 
CXRKREF byte uns ened: /* Cur Key 8 Ratatat 
CXRKLEN byte me tonees /* Length 
CXRBUF Longword unsign /* address at 


constant CXRBLEN e ulls so prefix XAB ta “hast 

FILL. 12 Longword d mension e. ris ye ABCKRDEF tag $ 

constant CXRLEN equals . prefi /* 

constant CXRLEN equals . Oretix KAR tos Ci /* 
end XABCXRDEF; 


end_module $XABCXRDEF ; 


ao°9s" as: of buh (bytes) 


Length + i XAB type CXR 
Length of XAB type CXR 


¢ 


—_ 
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module $SXABJNLDEF ; 
+4 


/* Journal XAB definitions 
/* $xabjnidef 


® 
constant JNL equals 34 prefix XAB tag $C; 


eagrepere Xe aE! otrunture prev is XABS; 
e fill pref JNLDEF tag $3: 
FILL Lg by byt e Hitt prefix XABJNLDEF tag $$: 
FILL.5 wor he fil ore efix XABJNLDEF cop SS 
FILL 4 pot dhas fill prefix XABJNLDE tag $$; 


JOP_OVERLAY union; 

JOP word ene Venees 

SOP tae gt rusty 
U bittield mask; 
ate mask; 
field mask; 
field ery. 
field ma 
ers: fttieta mask; 


FILL_5 aid fill prefix XABJNLDEF tag $$; 


BIS byte ene Tyree: 

BIL a uns toned 

FILL.6 word fill pretix XABJNLDEF tag $$; 
1A Tongword unsigned; 


IS byte una tened: 

IL byte uns serre 

ILL_?7 word fill oretix XABJNLDEF tag $$; 
1A Tongword unsigned; 


TS byte une toned: 

TL byte unsi ere 

ILL_8 word fill pretix XABJNLDEF tag $$; 
A Tongword unsigned; 


“10 Longword fill prefix XABJN tag ¥? 
~ ill prefix XABINCDEE tag $$: 
If lLongword iit prefix XABJNLDEF tag $8: 


An NTs PSP PP PrP "PP TD 


constant MAXJNLNAM equals 16 prefix XABS tag K 
constant MAXJNLNAM equals 1 © pret! x XABS tag C: 
constant JNLLEN equals . prefix XABS tag K; 
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/* xabjnl id code 


/*HAS SAME “F003 BLN, SPARE AND NXT FIELD 
/*THESE 4 FIELOS ARE COMMON TO ALL XABS AND 
/*HAVE BEEN DEFINED BY $XABDEF 


/* journaling flags 

/* pocovery-amis only eccess 
/* Before, {nag 

/* Before Rae, 

/* After jnage 


/* Audit Tra 
/* Never journal in Recovery-unit 


/* BI journal name buffer size 
/* BI journal name return size 


/* BI journal name buffer address 


/* Al journal name buffer size 
/* Al journal name return size 


/* Al journal name buffer address 


/* AT journal name buffer size 
/* AT journal name return size 


/* AT journal name buffer address 


/* max size of ascii string journal name 
/* max size of ascii string journal name 
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constant JNLLEN equals . prefix XABS$ tag C; 
end XABJNLDEF; 


end_module $XABJNLDEF ; 


+ 
- 
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module SFSCNDEF; 
Jeet 


Descriptor codes for SYS$SFILESCAN 


aggregate FLDFLAGS structure prefix FSCNS$; 
NODE bitfield mask; /* 
DEVICE bitfield mask; /* 
ROOT bitfield mask; /* 
DIRECTORY bitfield mask; /* 
E bittield mask; /* 
E bitfield mask; /* 
VERSION bitfield mask; /* 
end FLDFLAGS; 
agorepate FSCNDEF structure prefix FSCN$; 
LENGTH word unsigned; 
ITEM_CODE word unsigned; 
ADDR longword unsigned; 
constant FILESPEC equals 1 prefix FSCN tag 
constant NODE equals ¢ prefix FSCN tag 
constant DEVICE equals prefix FSCN tag 
constant ROOT soes 4 prefix FSCN tag 
constant DIRECTORY equals 5 prefix FSCN tag 
constant NAME equals & prefix FSCN tag 
constant TYPE equals 7 prefix FSCN tag 
constant VERSION equals 8 prefix FSCN tag 


constant ITEM_LEN equals . prefix FSCNS$ tag S; 
end FSCNDEF; 
end_module $FSCNDEF; 


PHPARAAAM 


Bete Ge Ge Ge Ge Se Ge 
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Node name present 
Device name present 
Root directory present 
Directory present 

e name present 

File type present 

File version present 


Fil 


return Length word 
item code value 
return length pointer 


complete filespec 

node:: field 
evice: field 
root.) field 
directory] field 

name field 

etyp field 
sversion field 


zI1F 
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wetule SRMEDEF ; 

* 

/* rms escape definitions 

/* — rong. th values currently 4 various requests for non-standard rms 
/* functions. they are current Y, input s9 the $modify function in the 
/* ctx field of the fab only if the esc bit is set in fop. incorrect 


/* use of these capes ties could cause rms to fail, hence great caution 
/* should be exercised in their use. 


constant SETRFM equals 1_ prefix RME tag $C; /* ane rfm, mrs, and fsz (if vfc) in ifab only 
constant PPFECHO equals 2 prefix RME tag si; /* enable echo of SYSSINPUT to SYSS$OUTPUT 
end_module SRMEDEF ; 


Ene EQUIPMENT CORPORATION 
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